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From all of us here to all of you out there, "HAFPRFY Thanksgiving 


MERRY Christmas and HAPPY New Year 19590". 
This is also the start of year EIGHT! It has. been a fun year, and Clyde and I are 


glad we could represent SINCUS at the CapitalFEST in Washington, DC this past year 
and meet hundreds of our fellow TSusers. Clyde and.I have talked of going to the 
MilwaukeeFest, and he says fine, but I gotta drive this time! Now I have to clear 
this with the Boss and see what she says!!. 
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In this issue is part three in the series on Ray Byler’s Spectrum/TS2068 ROM 
directories. It is in four parts, the Spectrum ROM directory listed alphabetically 
and cross referrenced to the TS2068. Then the T52068 ROM is listed alphabetically 
and cross referrenced to the Spectrum. The last two parts have the ROMs listed by 
address and cross referrenced. With Spectrum programs so. popular; one can 
Chopefully) determine the 2068 ROM call, and change it to run on ones TS2068. 
Steve Spalding, 1003 McLean, Royal Oak, MI, 48067, put his. Graphics support package 
for Stan Lemke’s Pixel Print Program, into. public domain.. Sorry for the misspelling 
of your last name in the last issue, Steve. _ 
Newsletter News------ @7x finally gots their rights righ. 

ccutuieemenmenmemenie SNUG------------------- 

SNUG’S next meet will probably be at the Milwaukee Computer Fest on Saturday Nite, 
June 2 1990. The SMUG group is putting.on the SINCLAIR FEST of the YEAR, room rates 


maybe be $45 per night, a Friday nite buffet of three types of food. Indoor pool, 


excellent food. Contact Bill Heberleiny 414-527-2191, POB 101, Butler WI 53007. 
MORE on SNUG on Page 2. ss 
~------~~-~ ~~ Time Designs-—--————— 
From VISTA Newsletter, Tony Willings POB 19%, Vashon, WA 98070 comes news of Tim 
Hoods and the delinquent Time Designs magazine. Last news from Tim, (late August or 
early September ) issue 5-2.is being printed right now. Earlier fetter from Tim, 
»++sCON’T page 13 
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page Leseensee ee NEWS + <= Meeting DATES 1989 - 1990 -~ 

Page 2ecee..20eeNEWS Con't + ----- 7pm Vestal Library ---~ 

page 3 - 4......Don’s 1060 tips it NOV 15 Wednesday 

page 5 - 12.....Ray Byler’s 2068/Spec ROM +. DEC 20 Wednesday 

page 13 ~ 14....NEWS; Notes, Policy a, JAN 17 Wednesday 

TOTTI TET TTT nm nnnenenmnenean nace Notes Meeting room or date maybe 
Have a Merry and Feaceful Christmas and .+ changed due to construction 
here’s wishing you and your loved ones + * WINTER months ahead, meeting will * 
health, wisdom and time to enjoy your + * be Cancelled if there is a * ¥ 

TS computers thru the New Year! vist ¥ ¥ € € K SNOW Emergency * * * * ¥ 
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COM? T-!'Former Compuserve Users Alert!!- I wrote a fetter to them in 

September 1989, and have yet to hear from them. I checked with my VISA card bank, 
and there is little I can do to block this $1.50 a month charge by Compuserve. I 
could spent $10 a month to put the number on the warning list, boy that would save 
me roney. I can block a specific account, but that has to be for $50 or more; and 
the Compuserve charge will slide under the block. I can change numbers, but even 
then the charge will NOT be stopped, as the old account number is still active 
until the end of the year. - IF YOU are a FORMER user of Compuserve, check your 
charge cards, you maybe still paying for it. How does one QUIT compuserve? If you 
aré going to change card numbers as I did; doa it BEFORE the end of this year, else 
the account will be active and you liable for all charges under $50...for the rest 
of 1990! Act now, unless you like paying for what you don’t use. 
-UPDATE- The fetter I wrote in mid-September might be working! The billing usually 
made towards the end of the month did not show up on the September. charges, and 
Oniine has yet to show up in my mail. Well it has been an education for me and I 
hope others benefit, both about Compuserve and the charge card. 

CON? T SNUG- Indiana TSUG has virtually taken over the operations 
of SNUG- their Jul/Aug 89 issue is devoted to SNUG’s situation and who is doing 
what. In a mut shell, SNUG prez, Mel. Nathanson has temporarily stepped asides 
leaving Paul Holmgren as the acting Prez, and Basil Wentworth as VP. Frank Davis is 
the SNUG FD librarian, and he; Basil and Paul are getting a SNUG newsletter out as 
Soon as possible. All current dues have been extended 6 months. If you want info on 
the PD library send $2, to Frank at 513 East Main, Feru, IN 46970- credits towards 
future purchase - allow several weeks to process. PLEASE use SASE when requesting 
info. 

(SNUG’s chances of survival are considerably better, one; all the elected officals 
aré within shouting distance of each other. Two; the people in there have working 
knowledge of running a user group. Three; they have already done something, 
published this info; and are getting the library in shape. The problem facing them 
faces all user groups, declining enroliments and rising costs.) 

—----—-—-Surviving Vendor s—----~---------—-----—------- = - 

Russell Electronics,RD#1, Box 539, Centre Hall,PA 16828 

EMG, 1413 1/2 7th Street, Oregon City, OR 97045 (TS stuff galore) 

Bottle Cap Software, 1284 Brushwood Ave., Cincinnati, OH 45224 

Ed Gray, PO BOX 2166, Inglewood, CA 90305 (2068 hardware support? 

John McMichael, 1710 Falmer Dr., Laramie, WY 82070 (2068 software) 

i ET ERS Ps a PE ne a 

Dan Elliott, Route 1, Box 117, Cabool, MO 65689 

J. Matthewson, 1852 Appieford St., Gloucester, Ont. KiJ 6T4 


ae nora a Vendors Con? t----------—---—-------------~-------------— 

Eric Johnson, 249 N. Harden Ave.; Orange City, FL 

as Magaz ines—--—~--—-—---—--—---~~—---—----------+------ += -- 

Byte Power; 1746 Meadowview Ave.;Pickering Ont., Canada LiV 368 (2068 Tap: 


Magazine) 
UPDATES, Bill Jones, 1317 Stratford Ave., Panama City, FL 32404 
Time Designs, Tim Woods, 29722 Hult Rd.; Colton, OR 97017 


Larken Electonics, RR #2, Navan, Ontario, Canada K4B 1H9 

The John Oliger Co., 11601 Whidbey Dr., Cumberland, IN 46229 

“Write for addition info, current items, and enclosing a SASE wouldn't hur‘ 
anybodies feelins any. Apologies to any 2068 vendor not on this list, let me knee. 
Of omissions and I will Gladly include them next time. 
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On the good news side, Larken’s "MAXCOM" is getting a workout as the software of 
the Ottawa-Hul! TSUG’s BBS. I have been on it 3x now as a representive of SINCUS, 
and hope to maintain close ties with this group via the BBS. For those of you 
wishing to get on a new BBS, contact them at @-N-i, currently 
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2X81 /TS1000 Tips - py Dow tamen, SINCUS 
16. Here is another OCTAL Input and List program. This one is based on Machine Code 
with BASIC support. "Why OCTAL?", You may ask. My reason for including it is due to 


the fact that the Z-80 microprocessor 


is an upgraded version of the 98080 


microprocessor and like the 8080 the Z-80's instruction code is based on OCTAL code. 


When the instruction codes are written 
happening inside the microprocessor. 


instruction codes (a total of 

instruction codes are not printed 

missing codes in the next Tip. 
OCTAL 

i REM 137' BLOCK of Machine Code. 

S REM "OCTAL" 

10 LET A = 16514 

20 PRINT “ADDRESS (DEC) "; 

30 INPUT AS 

40 PRINT Afsyy Pee : : 

INT (VAL AS / 256) 


in the Timex 10600 Manual. I 


in OCTAL it is easier 


instruction codes). All 


will 


244 possible 


120 INPUT AS 

130 IF A$ = "" THEN GOTO 250 

140 LET AS = AS +" " 

150 IF At <> 4 * INT (LEN A® / 4) THEN GOTO 
160 PRINT PEEK 16514 + 256 * PEEK 16515;" "3 
170 RAND USR 16516 


09 POKE A + 1, 180 GOTO 120 
60 FOKE A, VAL AS - 256 * INT 200 PRINT “OCTAL LIST" 
(VAL A$ / 256) 210 GOSUB 10° — 
70 CLEAR 220 RAND USF 16609 
80 RETURN 250 PRINT 
100 PRINT "“OCTAL WRITE" 260 PRINT "DONE" 
110 GOSUB 106 
MACHINE CODE: 
( 16514 > 4082 0000 MCV-1: ADDR 
2 bytes 
€ 16516 3} 4084 241040 Q-WRITE: LD HLs ¢ VARS ) 
23 INC HL 
46 LD B, CHL? 3 count 
CB38 SRL B 
Case SRL B 
23 INC HL 
408E C5 NEXT: PUSH BC 
23 INC HL 
4090 7E ist Digit: LD Ay CHL) 3 Oct Hi 
FE20 CP 20 3 4 dec. 
3049 .. JR NCy REPORT B 
2 INC HL 
ES PUSH HL : Save Pntr. 
CDiBiS CALL 151By STK-A (-2? 
3E40 LD A, 40 ¢ 64 dec. 
CbiDIS CALL 151D, STACK-A 
El POP HL 
40A0 7E 2nd Digit; LD A, HL) 3 Oct Mid 
FE24 CP 24 3; 8 dec. 
3039 JR NC, REPORT-B 
23 INC HL : 
CDIBIS CALL 151By STK-A (-2) 
3E08 LD A, 08 
CD1ibis CALL 151D, STACL-A 
Et POP HL. 
40B0 7E Srd Digit: LD A, (CHL) 
FES4 CP 24 ; 8 dec. 
3029 JR NC, REPORT-B 
23 INC HL 
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to see what 
By the way the 8080 has 78 different types of 
of the 
give You the 
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€ 16609 > 


40BA 


4006 


40DB 


40DE 


$0EL 


40EA 


ES 


Cbigis 

Er CALCULATE: 
C1 

02 

Ot 

Co 


34 


CDCBiS GET-VAL: 


200F 

73 
EDSBB240 
iz 


10B1 
cy 
Ci REPORT-B: 
CFOA 


END-CKs 


248240 


O-PRINT: 


iF LOOF-i: 


iF LOOF-2: 


Listing Con’t page is. 


PUSH HL 


CALL 151B, STK-A (-2) 

RST 28 ; Use Calculator 

DEFB: Ci 3; Store-1 

DEFB: OF }; Delete Last Val 

DEFB: O4 3 Multiply 

DEFB: CO ; Store-0 

DEFER: O02 ; Delete Last Val 

DEFE: 04 s Multiply 

DEFB: EG 3 Recall-@ 

DEFB: OF ; Add 

DEFER: Ei 3 FRecall-i 

DEFB: OF ; Add 

DEFB: 34 3; End Calculating 

CALL 15CD, FP-TO-A 

LD CA 3 Save Aine 

POP HL 

XOF A 

CF CHL) 

JR NZ, REPORT-B 

LD a, C ig Recover A 

LD DE, <ADDE> 

LD (DE); A 

INC DE 

LD (ADDER), DE 

FOP BC 

DINZ NEXT 

RET 

FOP BC 

RST 06 DEFB: OA ;REPORT-B 
93 bytes 

LD HL, CADDR) 

LD Ay HL) 

PUSH AF 3; Bave A 

AND CO 3 Mask bits 0-5 

LD B, 06 

RRA 3; Position bits 6-7 

BINZ LOOP-1 

ADD 1C 3; 26 dec. 

RST 10 5; Print A 

FOP AF 

FUSH AF 


AND 38 H Mask bits 0; 1,2,6,7 
LD By 03 


RRA, s Position bits 34:5 
DINZ LOOP-2 

ADD 10 ; 26 dec. 

RST 10 ¢ Print A 

POP AF 

AND O7 3; Mask bits 3-7 

ADD 10 3 28 dec. 

RST 10 3 Print 4 
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ROMs comes to you through the efforts of: 


Ray Byler, June 1988, 


The following is the third part of a four part catalog of the Spectrum and TS2068 
Et Riley, Kansas 


SPECTRUM ROM ENTRY POINTS INDEXED BY ADDRESS 


RESTART gee te TABLES 


HEX DEL SPECTRUM NAME . Xx DES TS2068 NAME 
0000 00000 START a 00000 PLUGIN : 
0008 00008 . ERROR-1 0008 00008 (Print Error) 
0010 00016 PRINT-4-1 0010 00016 WRCH 

6018 00024 GET-CHAR 0018 00024 (Get Character) 
0010 60028 TEST-CHAR Oo01C oo02e (Tst Character) 
0020 00032 NEXT-—CHAR 0020 00032 (Get Nxt Char? 
0026 00040... FP-CALC 0028 00040 CFP Calculator) 
0030 00048 BC-SFACES 0030 00048 (BC Workspaces) 
0038 00056 MASK-INT 0038 00056 (Maskeble Int) 
0048 G0072 KEY-INT 0048 G0072 (Keyboard Int) 
OO4F 00079 (Pop HL & AF) 004F 00079 PHLAF 

00535 00085 ERROR-< 0053, 00083 CError-2) 

0055 00085 ERROR-3 0055 00085 LES 

0066 00102 RESET 0066 00102 (NMI Ext Int) 
0074 00116 CH-ADD+i 0074 00116 NEXTCH 

0077 00119 TEMP-PTR1 0077 00119 NC_HL 

0078 06120 TEMP-FTR2 0078 06120 TC_ “HL 

007D 00125 SKIP-OVER 007D 00125 (Control Chrs) 
0095 00149 (Token Table} 0038 00152 TOKENS 

0205 00517 (Key Tables) 0227 00551 KSCAN. 

O22 CEx Mode Ltrs) 0268 00616 (Ex Mode Ltrs} 


o0S56 
KEYBOARD ROUTINES 


HEX DEC SPECTRUM NAME HEX DEC TS2068 NAME 


O28E 00654 KEY-SCAN O2hO 00688 K_SCAN 

0236 00662 KEY-LINE 0286 00696 (Scanning Loop) 

O2ZBF 060703 KEYBOARD OZEi 00737. UFD_K 

O2F1 60753 K-NEW OS17 OO791. (New Key? 

0310 00784 K-REPEAT OS36 O0BS2 (Key Repeat Fn) 

O31E 60798 K-TEST O35C 00860 K_BASE 

0333 00819 K-DECODE 0371 00881. CHCODE 
LOUDSPEAKER ROUTINES 

HEX DEC “SPECTRUM NAME HEX DEC 752068 NAME 

OSBS 00949 ~BEEPER O3F3 .61011 PARP 

OSF8 01016 BEEP 0436 01078 BEEP 

O46C O1132 REPORT-B O44A 01194 (Report B) 

O465E 01134 (Tone Table) O4AC 01196 (Tone Table) 
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CASSETTE HANDLING ROUTINES 


HEX DEC SPECTRUM NAME HEX __ DEC TS2068 NAME 


0402 01218 SA-BYTES XO68 xXoO104 
O5SF 013435 SA/LD-RET XOES xXOz29 
0556 01366 LD-BYTES XOFC XOZ5z 
OSES 61507 LD-EDGE-2 Xi89 X0393 
OSE7 O1511 LD-EDGE-i X18D xX0397 
0605 01541 SAVE-ETC X1AB XO0427 
O7CB 61995 VR-CONTROL XSOF X1423 
6802 02050 LD-BLOCK X5C6 4 X1478 
0808 02056 LD-CONTRL XSCC 1X1484 
0886 02230 ME-CONTRL X6E5 X1i765 
0370 O2416 SA-CONTRL X85i1 X2129 
O9A1 02465 (Cassette Msgs) SC89 15497 
O9C1 02497 (Program: msq} SCAS 15529 
SCREEN & PRINTER HANDLING ROUTINES 
OSF4 02548 PRINT-OUT 0500 O1260 
OAi1 02577 (Ctr! Char Thi) 0528 01320 
OAZS 02595 PO-BACKI OS3A 013358 
9ASD O2621 PO-RIGHT 0554 01364 
OASF O2639 .PO-ENTER O566 01582 
OASF O2655. . PO-COMMA 0576 01398 
OA6BS 02665 PO-QUEST 0580 01408 
OAED 02669 FO-TV-2 0564 O14i2 
OASB 02715 (AT Ctrf Char) OSB2 01458 
9AD9 02777 PO-ABLE O5FO 01520 
CADE 02780 PD-STORE OSF3 015235 
OAFO 02800 PO-ST-E 0607 01545 
OAFC O2B12 PO-ST-PRE 0613 01555 
0B03 02619 PO-FETCH 061A 01562 
OBID 02845 PO-F-FR 0654 01588 
OB24 02852 PO-ANY 063B 01595 
OB65 02917 PO-CHAR O69A 01690 
OB7F 02943 PR-ALL O6B4¢ 01716 
OBDS 03027 PO-ALL-6 0708 01800 
OBDB 03035 FO-ATTE 0710 01808 
SCOA G3082 PO-MSG O73F 016855 
OCSB 03151 FO-SAVE 0776 01910 
OC41 03137 PO-SEARCH 0770 01916 
OCSS5S 03157 FO-SCR 0790 01936 
OCBGE 02206 REPORT-5 97Ci 01985 
OCF8 03320 (Scroli? Msq? 0833 o2099 
OD4D 03405 TEMPS 0886 o2184 
OD6B 03435 CLS OBAG O2zi4 
OD6E 03438 CLS-LOWER OBAI O2217 
ODAF O3503 CL-ALL OBEA 02282 
ODDS 03545 CL-SET 0914 O2524 - 
ODD9 03545 CL-SET 0914 02324 
ODFE O3582 CL-SC-ALL 0939 02361 
0E44 03652 CL-LINE O97F 02431 


W_TAPE 

W_ BORD 

R_TAFE 

RD_BIT 

R_EDGE 

SLVM 

(Verify Commard 
(Ld Data Block) 
LOAD 

MERGE 

SAVE 

SEFREMT 

LDMES 


SENDTV 

éCtrl Char Tbl) 
POLFT 

P_RT 

P_NL 

(Print Comma) 
(Print a "7" 
CInk - Over) 
SET_AT 

(Print Chars) 
STTVCU 

(Save Ler Sern) 
(Save Prnt Bfr) 
LDTVCU 

CP-Bfr Fetch) 
(Print Chars) 
CExpand Chars?) 
(Print a Char) 
(Adjst fr Prtr) 
ATTBYT 

FUTMES 

FR_TV2 

(Search Table) 
TVFUL? 

ERRS 

(Scroll? Msg) 
R_ATTS 

K_CLS 

CLLHS 

CLS 

SETCUR 

SETTVC 

SCRL 

CLS_B 
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HEX DEC SPECTEUM NAME HEX DEC TS2068 NAME 
0E88 03720 CL-ATTE OoC3 G2499 iCl Attributes? 
OE9B 03739 CL-ADDR O9D6 02518 (Get DF Addres} 
CEAC 03756 COPY OA0Z O2562 K_DUMF 

OECD 03789 COPY-BUFF O423 O2595 DUMPFE 

CEDF O3807 CLEAR-PRB 0A35 02613. CLPR 

OEF4. 03828 COPY-LINE = | OAdA° 02634 PRSCAN 

OFZC O3884 EDITOR OAB2 02690 EDIT_K 

OF81 03969 ADD-CHAR : OAE7 O2791 INSA 

OFAO 04000 (Edit Keys Tbi)? OB0G 02822. (Edit Keys Tb!) 
OFAS 64009. ED-EDIT OBOF O2831 (Do Edit) 

OFFS 04083 ED-DOWN OB59 02905 (Cursor Down? 
1007 64103.. ED-LEFT OB6BD 02925 (Cursor Left} 
100C 04108 . ED-RIGHT OB72 029360 (Cursor Right) 
1015 04117 ED-DELETE ~ OB7B 02939 . DELSYM 

101E 064126 ED-IGNORE OBB4+ 02948. (End Edit) 

1024 O4132 ED-ENTER OBBA 02954 (Restre ERR-SP? 
1031 04145. ED-EDGE OB97 02967 (Fut Cursor) 
1059 64185 E€D-uUP OBBF 03007 (Cursor Up) 
1076 04214 ED-SYMBOL OBD7 O3031 (Sym & Grph Cdo 
107F 04223 ED-ERROR OBES 03045 (Edit Error) — 
19097 04247 CLEAR-SP OBFD 03069 DEL_K 
10A8 04264 KEY-INPUT OCOE O5086 . INE 

111D 04381 ED-COPY oces o3203 ECHO 

1190 04496 SET-HL ~~ OCF6 03318 CLoc Wrk Space} 
1147 64519 REMOVE-FP ODOD 03341 DESLUG 


EXECUTIVE ROUTINES 


HEX DEC SPECTRUM NAME HEX DEC TS2068 NAME 


11B7 04535 NEW ODiD O3357 K_NEW 

11CB 04555 START/NEW ODS1 03377 INIT 

11DA 04570 RAM-CHECK OD40 O3392 (Check Memory) 
1219 04633 RAM-SET OD7F 03455 NEW. 

1242 04770 MAIN-EXEC _ OF28 O3624 (Edit Mode Lp) 
1249 04777 MAIN-1  OE2F 036351 .LEDIS 

1303 04867 MAIN-4 OE8D 03725 LED4 

1391 05009 (Report Msgs) OF65 03941 RPTMSG 

155D 065469 MAIN-ADD 1158 04440 (Add BASIC Line 
1SAF O5551° (Init Chan Info 11AA 04522. CHINIT 

1SC4 05572 REPORT-J 1iBF 04545 (Invid 1/0 Dev) 


1506 05574 (Init Strm Data. 1101 04545 SMINIT 
i1SC9 05577 (Sinclair Logo? 1118 04376 (Timex Logo) 


15D4 .. 05588 WALT-KEY © 11CF 04559. RDCH 
15D4 05588 WAIT-KEY — “X84A X2218 AKEY 
15E6 05606 INPUT-AD ~41E1 404577 INCH 
SEF 05615 OUT-CODE 11EA 04586 PUTDIG 
15F2 05618 PRINT-A-2 ~11ED 04589 SENDCH 
1601 05633 CHAN-OPEN 1230 04656 SELECT 
160E .05646 REPORT-0 123D 04669 ERRO 
1615 05653 CHAN-FLAG i248 04680 SEL_HL 
162D 05677 (Chan Code TbIl) 1293 04755. (Channel Flags) 
iS9FB 406651 E-LINE-NO 1768 05992. LINENO 
1AiB 06683 OUT-NUM-1 1788 06024. PUT_BC 


1A28 06696 OUT-NUM-2 1795 06037 . PUT_LN 
ae 7 ES 43 -s case 


a 
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HEX _ DEC SPECTRUM NAME HEX DEC TS2068 NAME 
1634 05684 CHAN-K i294 04762 (Set K Flags) 
1642 05698 CHAN-S 12A8 04776 (Set S Flags? 
1640 05709 CHAN-P 12B3 04787 (Set P Flags) 
1652 05714 ONE-SPACE 12B8 04792 INS1 

1655 05717 MAKE-ROOM 12BB 04795 INSERT 

1664 05732 POINTERS 120A 04910 REMGSZ 

i68F 05775 LINE-ZERO 131E 04894 (Find Line No.) 
1695 05781 LINE-NO 1324 04900 GET_LN 

165E 05790 RESERVE i32D 04909 LCUZ 

i6B0 OSB0B8 SET-MIN 133F 04927 CLEL 

16BF 05823 SET-WORK 134E 64942 X_CALC 

16C5 05829 SET-STK 1354 04948 RESET 

16D4 05844 REC-EDIT 1363 049623 X_T_HL 

16DC O5e@52 INDEXER 136B 04971 SEARCH 

i6ES 05861 CLOSE 139F 05023 CLOSE 

16EB O5867 (Make Strm Dt=0 1348 O5032 RSTSTR 

1701 o5889 CLOSE-2 13BE 05054 CLCHAN 

1716 05910: (Cise Strm Tbl> 1407 05127 (Cise Strm Thi? 
471C 05916 -CLOSE-STR 140D 05133 (Close Strm Sub 
171E 05918 - STR-DATA 140F 05135 (Test Strm No.} 
1736 05942 OPEN i424 05162 ° OPEN 

175D 05981 OPEN-2 1465 05271 OPCHAN 

177A 06010 (Opn Strm Tht? 14C7 053519 (Opn Strm Tol) 
1781 06017- OPEN-K 14CE 05326 (Open K Strm) 
1785 06021 OPEN-S 14D2 05330 (Open S Stream) 
1789 06025 OPEN-P 14D6 05334 (Open P Stream) 
1793 06035 CAT-ETC. 2508 O9672 CAT 

1793 06035 CAT-ETC. 25CC 069676 FORMAT 

1793 06035  CAT-ETC. 25D0 09680 MOVE 

1793 06035 CAT-ETC. 25D4 09684 ERASE 

1795 06037 AUTO-LIST 14Ei 05345 LIST 

i7F5 06133 LLIST 1541 05441 K_LLST 

17F9 06137 LIST 1545 05445 K_LIST 

1855 06229 OUT-LINE 15A1 05537 PUT_SR 

1860 O6240 (LD D,O) i5AC 05548 LPO 

187D 06269 OUT-LINE2 15C9 05577 PUT 

18B6 06326 NUMBER 1602 05634 (Skip Over No.) 
18C1 06337 QUT-FLASH 160D 05645 FLASHA 

18E1 06369 OUT-CURS 162D 05677 PR_CUR 

190F 06415 LN-FETCH 165B 05723 NEXT_L 

191C 66428 LN-STORE 1668 05736 DE_HL 

1925 06437 OUT-SP-2 1671 05745 (Prnt Char/Tkn) 
192A 66442 QUT-SP-NO 1676 05750 (Add Spaces/No) 
1937 06455 OUT-CHAR 1683 05763 (Print Line? 
196E 06510 LINE-ADDR 16D6 05846 FIND_L 

19G0 O6528 CP-LINES 16E8 oO5864 CP_pC 

1988 06536 (Fnd Stmnt Sub) 1676 05872 SUBLIN 

1986 06539 EACH-STMT 16F3 05875 SUBLNI 

1988 06584 NEXT-ONE 1720 05920 RECLEN 

i9DD O6621 DIFFER 1745 oO5957 <Dif of Length> 
19E5 06629 RECLAIM-1 174D O5965 DEL_DE 

19F8 oOG6S2 1750 05968 


RECLAIM-Z 
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BASIC LINE & COMMAND INTERPRETATION 
HEX _ DEC ‘SPECTRUM NAME HEX DEC. TS2068 NAME 
1448 06728 (Cmd Offsets) 1345 «06469 (Cmd Offsets) . 
1ADF 06879 P-SAVE 19EO 06624 TEMP3B 
1AEO 06880 P-LOAD 19£1 06625. TEMP39 
iB17 66935 LINE-SCAN 1A27 06695 SYNTAX 
1828 06952 STMT-LOOP 1A44 06724 LS4 ; 
1B52 06994 SCAN-LOOP 1495 06805 (Get Cmd Class) 
1B6F 07023 SEPARATOR 1AB2 06834 (Chk for Sprtr) 
1B76 07030 STMT-RET 1AB9 06841 ENDSTT 
1BBA 07050 LINE-RUN 1AD8 06872 EXECUTE 
iB9E 07070 LINE-NEW 1AEC 06892 (Frnd Adrs Newlin 
1BB2 07090 REM ‘1B00 06912 (Rem Command) 
1BB3 97091 LINE-END iBO9 06921 (Ftch Add NxtIn 
1BBF 07103 LINE-USE 1Bi5 06933 (Fnd # Newline) 
1BDi 07121 NEXT-LINE 1B27 06951 (Set Nxtin use) 
1BEE 07150  CHECK-END 1B44 06980 END? — te 
1BF4 07156 STMT-NEXT 1B44 06986 ENDTEM ‘ 
1Co1 07169 (Cmd Class Tbi> i864 07012 (Cmd Class Tb!) 
iCOD 07181 CLasSs-03 1B70 07024 (Class 3 Cmds) 
1ci6 07190 JUMP-C-R 1B79 07033 (Jmp to TADDR) 
iCiF 07199 CLASS-01 1B82 07042 TEMI 
1C2E 07214 REPORT-2 1B91 067057 ERR2 
1059 07257 VAL-FET-2 1BBC 407100 LTz2 
1073 067279 WEXT-2NUM 1BDC 67132 DYADIC 
1C@2 07298 EXPT-1NUM 1BES 07141 TEMG 
iC8A 07306 REPORT-C 1BED 07149 SYNERR 
icaC 07308 EXPT-EXP 1BEF 07151 TEM10 
1CDE 07390 FETCH-NUM 1049 07241 OPTNO 
iCEG 07398 USE~-ZERO 1051 07249 STK_O 
iCEE 07406 STOP ics9 07257 STOP 
iCFo 07408 #IF 1CSB 07259 (If Command) 
iDOS 07427 FOR 1078 o72868 FOR 
1D86 «4067558 LOOK-PROG 1D28 07464 SKIP 
iDAB O7595 NEXT 1D55 O7509 NEXT 
{DEC 07660 READ-3 1D96 O7574 (Read after Ist 
1DED 07661 READ iD97 407575 READ 
1E27 07719 DATA 1E82 07810 DATA 
iE42 07746 RESTORE 1E9D 07837 (Restore Comman 
1£45 07749 REST-RUN 1ECA 07882 RESTBC 
1E4F 07759 RANDOMIZE 1ED4 07892 RAND 
1E5F 07775 CONTINUE 1EE4 07908 CONT 
1E67 07783 60-TO i—F1 07921 JUMP 
1E73 07795 6GO-TO-2 1EFD 07933 GOTO_2 
1E74 67802 OUT 1F04 07940 (Out Command? 
1E80 07808 POKE © iFOA 07946 (Poke Command) 
1E94 07828 FIND-INT1 IF1E 07966 FIX_U1 
1E99 07833 FIND-INT2 1F23 07971 FIX_U 
28B2 10418 LOOK-VARS 2070 11376 FIND_N 
2396 10646 STK-VAR 2D54 11604 GET_EL 
2A52 10834 SLICING 2E10 11792 SLICER 
2AB2 10330 STK-STO-s 2E70 11888 PSHSTR 
2ZABG 10934 STK-STORE 2E74 11892 PAEDCE 
ZAFF 11007 LET 2EBD 11965 LET 
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HEX 


DEC SPECTRUM NAME 


HEX 


DEC 


SINCUS NEWS 


TS2068 NAME 


pS Lk bh Sn ann ane nn een EnEEnOne em ennennnanae 


2859 
2BF 1 
2002 
2C88 
2C8D 
2C3B 
2DiB 
2D28 
2D2B 
2D3B 


11097 
11249 
11266 
11400 
11405 
114193 
11547 
11560 
11563 
11573 


L-NUMERIC 
STK-FETCH 
DIM 
ALPHANUM 
ALPHA 
DEC-TO-FP 
NUMERIC 
STACK-A 
STACK-BC 
INT-TO-FP 


\@F17 
oF AF 
2FCO 
3046 
3045 
3059 
30D9 
SO0E6 
‘S0E9 
30F9 


12055 
12207 
12224 
12958 
12363 
12377 
12505 
12518 


12521 


12537 


ARITHMETIC ROUTINES 


11599 
11647 
11660 
11662 
11682 
11733 
11747 
12187 
12218 
12253 
12303 
12308 
12457 
12490 
12717 
12719 
12820 
12951 


E-TO-FP 
INT-FETCH 
P-INT-STO 
INT-STORE 
FP-TO-BC 
FF-TO-A 
PRINT-FP 
‘PREP-ADD 
' FETCH-TWO 
SHIFT-FP 
SUBTRACT 
ADDITION 
HL=HL#DE 
MULTIPLY 
REPORT-6 
DIVISION 
TRUNCATE 
RE-STACK 


2i0D 
(313D 
sité 
314C 
3160 
3193 
SLAl 
SaoA 
3379 
S390 
SSCeE 
33D3 
3468 
a489 
356C 
SS6E 
a5D3 
3656 


12557 
12605 
12618 
12620 
12640 
12691 
12705 
13146 
13177 
13212 
13262 
13267 
13416 
13449 
13676 
13678 
13779 
13910 


FLOATING-POINT CALCULATOR 


12997 
13147 
13225 
13236 
13248 
13318 
13385 
13422 
13477 
13484 
13545 
135793 


STE-ZERO 
CALCULATE 
TEST-5S-SP 
STACK-NUM 
MOVE-FP 
LOC-MEM 
SERIES-O6-ETC. 
NEGATE 

CIn Command) 
(Peek Command) 
TEST-ZERO 
FP-O/1 


3684 
371A 
3768 
3773 
377F 
3705 
3B08 
o82D 
3864 
386B 
3904 
3926 
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13956 
14106 
14184 
14195 
14207 
14277 
14344 
14361 
14436 
14443 
14596 
14630 


L_NUM ° 


(Series Gen Sub 
NEGATE 

(In Command) 
(Peek Command} 
TESTO 

STBOOL 


-SINCUS NEWS 


HEX 
 LESF 
1EAL 
1EAC 
1EAF 
1EED 
1F05 
1Fis 
iF23 
IF SA 


NOV/DEC 89 


SPECTRUM NAME HEX DEC TS2068 NAME 
REPORT-—3 iF29- 07977 ERRB 

RUN if2B 07979 (Run Command?) 
CLEAR hi. 1F36 07990 CLEAR 
CLEAR-RUN * 1f39 07993 CLR_BC 

GO0-SUB 1F99 08089 6O0_SUB 
TEST-ROOM iFBB 08123 CHK_SZ 
REPORT—4 1FCF 08143 ERR4 

RETURN 1FD4 08148 RETURN 

PAUSE 1FEB 08171 PAUSE 
BREAK-KEY '2009 08201 BREAK? 

DEF-FN 201D O8221 DEF 

UNSTACK-Z 214F 08527 SYNTWO 

LPRINT 2155 08533 K_LPR 

PRINT 2159 08537 K_PRIN 
PRINT-2 217E 08574 P_SE® 
PR-ST-END 21E7 08679 TERM? 
STR-ALTER 220F 08719 STRITO 

INPUT 222B 08747 INPUT 
IN-ITEM-1 276B O8811 I_SEQ 
REPORT-H 237E 09086 ERRH 
IN-CHAN-K 2380 09088 NOTKB? 

CO-TEMP-1 2388 039099 (Tst fr Cir Cd) 
CO-TEMF-2 236C 09100 GR_COL 
CO~TEMP-3 2390 09116 (Test for Ink) 
CO-TEMP~4 2346 09126 COLITM 
CO-TEMP-5 23BB 09147 TV_COL 
CO-TEMP-7 23DE 09182 COLOUR 
CO-TEMF-C 241D 09245 HIFLSH 

BORDER 243E 09278 BORDER 
PIXEL-ADD 2603 09731 SCRMBL 
FPOINT-SUB 2624 09764 F_PNT 

PLOT 2635 09781 PLOT 

PLOT-SUB 263E 09790 PLOTBC 
STK-TO-BC 2660 09824 GET_XY 
STK-TO-A 266D 09837 GET_A 

CIRCLE 2679 09849 CIRCLE 

DRAW 26DB 09947 DRAW 
DRAW-LINE 2810 10256 DRAW_L 
(Compare X&Y) 2813 10259 DRAWLN 
EXPRESSION EVALUATION 

SCANNING _. 2854 10324 EXPRN 
SYNTAX-Z 2889 10377 INTPT? 
S-SCRNS-5 288E 10382 F_SCRN 
S-ATTR-S - 2BD7 10455 F_ATTR 
S-U-PLUS “ 296D 10605 (Scanning Func) 
S-RND “2986 10678 RND 

S-PI “ 2965 10725 F_PI 

S-INKEYS | 29F2 10738 F_INKY ; 
S-LETTER 2487 10887 (Test Variable) 
FN-SKPOVR 2069 11369 NXT_HL 
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HEX 
36A0 
S6AF 
3604 
3713 
3783 | 
374A 
37B5 
37DA 
37E2 
3833 
3843 
3844 
3851 


DEC 
13984 
13999 
14020 
14099 
14211 
14250 
14261 
14298 
14306 
14387 
14403 
14410 
14417 


SPECTRUM NAME 
N-MOD-" 


TO-POWER 


HEX 


DEC 

15035 
15050 
15071 
15150 
15262 
15301 
15312 
15349 
15357 
15438 
15454 
15461 
15468 


SPARE LOCATIONS (FILLED WITH FF? 


14446 


15615 


SsD00 15616 


CHARACTER SET 


(Char Dot Ptrns 


=D00 


15616 


TS2068 NAME 
INTDIV 
INT 
EXP 
LN 
ANGLE 
cos 
SIN 
TAN 
ATN 
ASN 
ACS 
ROOT 
TO_THE 


CH_SET 


* The Timex 2068 Technical manual 


TSNAME HEX 

DELSYM OB7E 
NEW ODB2 
LDMES 3CAB 


TSNAME HEX 
DELSYM OB7E 
NEW 
INPUT 
CALC 
LDMES 


2228 
3684 
3CAB 


N.A. Pashtoon 


TSNAME HEX 

DEL_K OBFE 
LDMES 3CA8 
LINENO 1768 
PAUSE 1FEF 
READ 1D96 


OBB? - 


~ CREAD-3) 


lists: 


H.E. Weppler (Sep 85 CATS Newsletter) lists: 


SPNAME HEX 
(ED-DELETE > 10616 
CRAM-SET 3 1219 
CINPUT } 2O6E 
(? STK-ZERO > 3254 
(Program: Msg) O9C1 
(May/June 88 SINCUS NEWS) lists: 
SPNAME HEX 
(CLEAR-SP) 1097 
(Program: Msg) (09C1) 
(E-LINE-NO> i3BF 
(PAUSE? 1IFSA 
1DEC 
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NOV/DEC 89 : SINCUS NEWS 
Com? t from'page 4. 


23425 ~ INC HL 


ae 228240. LD (ADDR): HL 
SEIG 228. - LD Ay 76 3 NAL 
D7 RST 10 ¢; Print Line Feed 
18D6 JR O-PRINT 
42 bytes 
€ 16651 3 4108 NEXT BYTE. Boies 137 Bytes Total. 


form? t Bane = 
300 baud, due to be upgraded to 1200, at (6139745-8838. Operating 24 hours 
everyday. If you are not a member log on with the name Special Guests and use the 
Password "ELIVE™ (no quote marks please-but use all caps). 
Locally our Hambone BBS is back up after a 30meg hardrive crash - this BBS allows 
user access the first time. Howard the sysop is going for hamusers and the software 
allows 64 users at on time to access the board. See last page for BBS info. If you 
wish to leave a message for us at SINCUS, go J 8, "section eight" for TSers! 
I also am on Nitewing BBS at least once a week, 3/12/24/9600 baud, 8-N-1y once ons 
wait until the machine beots up, sometimes 10-20 seconds. Call 24 hours at 
(607)687-3470. Leave a message under !oca!l area. If you mee an-any of these BBSs, 
you will see-my ranting at the Compuserve charges! : 
“CON? T Time Designs- dated iate July 1989, Tim has not had the time for the 
magazine, his wife is no longer helping him with the mag, a mountain of unanswered 
mail and worst case scenario, his address data base has been corrupted. He is 
answering the mail starting with the oldest date, he is rebuilding his data file, 
and he is working on the next issue (5-2). He plans to be around for quite awhile. 
(Comment -— back up them files, do I do that myself?? no, it is too much like work) 
-UPDATE- from the PLOTTER, (November 1989) Tim says issue 5-2:is in the mail, and 
3-3 isnt far behind. Tim has a BBS up and running on his business phone 
(503)824-2658 at 300 baud, settings S/N/1. If you haven't race vad: issues paid for, 
leave your name and address on the BBS. 
The Capital District Timex Sinclair Computer Ciub, Jack Baroney. 141 Ontario St., 
Albany, NY 12206 just contacted us and we are beginning a newsletter swap with 
them. They are 5 years old and have computers from the TS1000 to the QL. Maybe 
someday (after the winter snows) we can meet with them. 
News from The PLOTTER, WMJ Data Systems has sold out it’s stock to RMG. RMG is also 
selling the Novelsoft fine. Rod has his catalog on 25.25" on LKDOS and he used 
Tasword to write it. $3.00 pp per cat, and monthly haps at $12 a eae Rebates 
towards purchases, 
WANTED: A good woman who can cook, sew and clean. Must be able to communicate with 
hard core computer nut/hacker/nerd/user/freak (choose one) in. various languages, 
Basics Fortran or APL. ‘Must have good paying job or large savings account. Prefer 
woman who has own personal computer and hard disc. Piease send photo of computer. 
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Sinclair Computer Users Saciety + SINCUS NEWS Gives permission to reprint 
est. 1982 any rion copyrighted article provided the 


+ 


----1989 SINCUS OFFICERS 19990--~-- + author and this newsletter is given 
President. .ccscecoeneertlyde Tackley + -credit. 

Vice President.....Dave Schoenwetter + * qt 

Tr @aSUrerasssceseveess sGe0rge Penney + Members get a free ad per subscription 
Secretary.ccuccocesecennsecFaul Hilf + Ad size is limited to 32 characters by 
Trustee. .cascnasasscuaeeetarl Morris + 22 lines. Additional ads for members at 
TYUSt GG. ee eee eee eee eeene SDON Lamen + $2 per ad; non-member ad cost $3 

Swap Controller.........John Colonna: + 

Book Library..scereccenenes OPEN + Subscription rate: $8 per year- six 
Tape Library......Don LamenyHal Sohn + issues per year. Should SINCUS NEWS be 
Editor .ccscwcccweneeecesess Paul Hill + discontinued, all accounts owed monies 
Tel: (60739798-7219 evenings til 9pm. + will be refunded. 
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SINCUS NEWS is the newsletter of the Sinclair Computer Users Society, a non profit 
organization operated by valunteers dedicated to the Sinclair and Timex-Sincl air 
computer user. Any repros of ads, or any product or services mentioned are not an 
endorsement but an informational service provided to SINCUS members. Views and 
opinions are not necessarily the those of the society. Any modification to your 
computer aS a result of any article contained in SINCUS NEWS is done at your risk. 
We do not take responsibility for any typographical errors. 
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Hello and welcome back, to Phil McConaghey, Pembroke Pines, FL and thanks to Robert 
Curnutt, Adelphi; MD, for RENEWING his subscription to SINCUS NEWS. 

In the Sept. 89 issue of the "PLOTTER", several pages are devoted to the TSEN- the 
Timex Sinclair Electronic News!etter by Greg Popovich, New Jersey 201-956-7703 (BES 
B-1-N 3; 201-956-1556 (voice? FidoNet 1:107/564. First issue of TSEN was | aunched 
Feb 10, 1989. It is available on the Timex echo on FidoNet Backbone. Leave your 
node ID. Also available on W.Y.S.1.W.¥.G RBBS for DLing. Size to be under 25K. 
INPUT also needed... 

SINCUS DISC/tape SWAPS for the TS2068 are still growing- five discs available and 
the sixth under construction. Available in Oligqer or Larken Formats ONLY in 40 
tracks 5.25" discs. Get all five for $10.00, or $2.50 per disc for orders fess than 
3 discs. Special deal- one swap disc for $1.00 and three Public Domain programs 
(YOURS or outa a magazine and give credit where due- send for !ist of our programs, 
dupilcates don’t count). Send for disc catalogs, enclose an SASE. Send for a Sample 
disc and catalog enclose $2.00. For Oliger swaps write John Colonna, 28 Guil foyle 
Ave.» Binghamton, NY 13903. For LKDOS CDDDS only? swaps write to Paul Hill, 1229 
Rhodes Rd.,; Johnson City, NY 13790. Make checks payable to SINCUS. 

CLONE- a TS2068 tape copier (2 modes) and a header reader. On other side of tape 
are a couple swap sampies. (TAPE ONLY) #5. PPD. 

COMPUTUS INTERRUPTUS- a multipart articl® on the 2068, includes programs, projects 
and artwork. Printed out, over 60 pages. One printed copy feft only $15 each. Also 
available on LEDOS and Oliger discs - 5.25 DSDD only $5. Make checks to SINCUS, 
write to Paul Hill, 1229 Rhodes Rd.,; Johnson City, NY 13790. 

Enjoy the upcoming holidays and here’s another fog on the fire and an idea for a 
program. There aren’t too many disc driven programs for the 2068, let’s get going. 


